home *** CD-ROM | disk | FTP | other *** search
/ Kyoko 8203 / Kyoko 8203.iso / pc / photo.dxr / 00025_é ê^.ls < prev    next >
Encoding:
Text File  |  2003-03-03  |  1.7 KB  |  73 lines
  1. global page, photonumber
  2.  
  3. on mouseUp me
  4.   cursor(0)
  5.   mynumber = me.spriteNum
  6.   case mynumber of
  7.     28:
  8.       photonumber = photonumber - 1
  9.       if photonumber <= 0 then
  10.         photonumber = 26
  11.       end if
  12.       go("Large")
  13.       updateStage()
  14.     29:
  15.       photonumber = photonumber + 1
  16.       if photonumber >= 27 then
  17.         photonumber = 1
  18.       end if
  19.       go("Large")
  20.       updateStage()
  21.     36:
  22.       if (photonumber >= 1) and (photonumber <= 6) then
  23.         page = 1
  24.       else
  25.         if (photonumber >= 7) and (photonumber <= 12) then
  26.           page = 2
  27.         else
  28.           if (photonumber >= 13) and (photonumber <= 18) then
  29.             page = 3
  30.           else
  31.             if (photonumber >= 19) and (photonumber <= 24) then
  32.               page = 4
  33.             else
  34.               if (photonumber >= 25) and (photonumber <= 30) then
  35.                 page = 5
  36.               else
  37.                 if (photonumber >= 31) and (photonumber <= 36) then
  38.                   page = 6
  39.                 else
  40.                   if (photonumber >= 37) and (photonumber <= 42) then
  41.                     page = 7
  42.                   else
  43.                     if (photonumber >= 43) and (photonumber <= 48) then
  44.                       page = 8
  45.                     else
  46.                       if (photonumber >= 49) and (photonumber <= 54) then
  47.                         page = 9
  48.                       end if
  49.                     end if
  50.                   end if
  51.                 end if
  52.               end if
  53.             end if
  54.           end if
  55.         end if
  56.       end if
  57.       go((page * 5) + 1)
  58.       updateStage()
  59.   end case
  60. end
  61.  
  62. on mouseWithin me
  63.   cursor([1, 2])
  64. end
  65.  
  66. on mouseEnter me
  67.   cursor([1, 2])
  68. end
  69.  
  70. on mouseLeave me
  71.   cursor(0)
  72. end
  73.